/ Oranges - Coming Back to Life / Oranges - Coming Back to Life.iso / Random2124 / Random2124.rsrc / VWAC_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 02 01 00 00 03 01 | 00 58 04 01 00 6a 05 00 |........|.X...j..|
|00000010| 00 8f 06 01 00 8f 07 01 | 00 cd 08 00 04 ed 09 01 |........|........|
|00000020| 04 ed 00 00 08 c5 67 6c | 6f 62 61 6c 20 6d 6f 64 |......gl|obal mod|
|00000030| 65 6e 61 6d 65 0d 70 75 | 70 70 65 74 53 70 72 69 |ename.pu|ppetSpri|
|00000040| 74 65 20 31 2c 20 46 61 | 6c 73 65 0d 73 65 74 20 |te 1, Fa|lse.set |
|00000050| 6d 76 6e 6d 77 6b 20 74 | 6f 20 22 4d 45 4e 55 22 |mvnmwk t|o "MENU"|
|00000060| 20 26 20 6d 6f 64 65 6e | 61 6d 65 0d 67 6f 20 74 | & moden|ame.go t|
|00000070| 6f 20 6d 6f 76 69 65 20 | 6d 76 6e 6d 77 6b 67 6f |o movie |mvnmwkgo|
|00000080| 20 74 6f 20 74 68 65 20 | 66 72 61 6d 65 20 2d 31 | to the |frame -1|
|00000090| 6d 65 6d 69 6e 69 74 0d | 70 75 70 70 65 74 53 70 |meminit.|puppetSp|
|000000a0| 72 69 74 65 20 31 2c 20 | 74 72 75 65 0d 63 75 72 |rite 1, |true.cur|
|000000b0| 73 6f 72 20 30 67 6c 6f | 62 61 6c 20 6d 63 66 6c |sor 0glo|bal mcfl|
|000000c0| 67 0d 70 75 70 70 65 74 | 53 70 72 69 74 65 20 31 |g.puppet|Sprite 1|
|000000d0| 2c 20 66 61 6c 73 65 0d | 73 6f 75 6e 64 20 66 61 |, false.|sound fa|
|000000e0| 64 65 4f 75 74 20 6d 63 | 66 6c 67 2c 20 36 30 20 |deOut mc|flg, 60 |
|000000f0| 2a 20 31 67 6c 6f 62 61 | 6c 20 67 6d 6e 2c 20 67 |* 1globa|l gmn, g|
|00000100| 6d 61 78 2c 20 66 6d 6e | 2c 20 66 6d 61 78 2c 20 |max, fmn|, fmax, |
|00000110| 62 6d 6e 2c 20 6d 63 66 | 6c 67 2c 20 53 6f 75 6e |bmn, mcf|lg, Soun|
|00000120| 64 46 6c 61 67 2c 20 6d | 73 6d 61 78 0d 69 66 20 |dFlag, m|smax.if |
|00000130| 28 28 73 6f 75 6e 64 42 | 75 73 79 28 6d 63 66 6c |((soundB|usy(mcfl|
|00000140| 67 29 20 3d 20 30 29 20 | 61 6e 64 20 28 53 6f 75 |g) = 0) |and (Sou|
|00000150| 6e 64 46 6c 61 67 20 3d | 31 20 29 29 20 74 68 65 |ndFlag =|1 )) the|
|00000160| 6e 0d 20 20 20 20 72 64 | 66 6c 6f 77 65 72 0d 20 |n.    rd|flower. |
|00000170| 20 20 20 73 65 74 20 66 | 6d 6e 20 74 6f 20 73 74 |   set f|mn to st|
|00000180| 72 69 6e 67 28 72 61 6e | 64 6f 6d 28 66 6d 61 78 |ring(ran|dom(fmax|
|00000190| 29 29 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |)).    s|et the c|
|000001a0| 61 73 74 4e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astNum o|f sprite|
|000001b0| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|000001c0| 20 6f 66 20 63 61 73 74 | 20 66 6d 6e 0d 20 20 20 | of cast| fmn.   |
|000001d0| 20 69 66 20 53 6f 75 6e | 64 46 6c 61 67 20 3d 20 | if Soun|dFlag = |
|000001e0| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 73 |1 then. |       s|
|000001f0| 65 74 20 66 6c 67 20 3d | 20 31 0d 20 20 20 20 20 |et flg =| 1.     |
|00000200| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |   repea|t while |
|00000210| 66 6c 67 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |flg.    |        |
|00000220| 73 65 74 20 6e 77 6b 20 | 3d 20 72 61 6e 64 6f 6d |set nwk |= random|
|00000230| 28 6d 73 6d 61 78 29 0d | 20 20 20 20 20 20 20 20 |(msmax).|        |
|00000240| 20 20 20 20 69 66 20 62 | 6d 6e 20 3c 3e 20 6e 77 |    if b|mn <> nw|
|00000250| 6b 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 20 |k then. |        |
|00000260| 20 20 20 20 20 20 20 73 | 65 74 20 62 6d 6e 20 3d |       s|et bmn =|
|00000270| 20 6e 77 6b 0d 20 20 20 | 20 20 20 20 20 20 20 20 | nwk.   |        |
|00000280| 20 20 20 20 20 70 75 74 | 20 73 74 72 69 6e 67 28 |     put| string(|
|00000290| 6e 77 6b 29 20 69 6e 74 | 6f 20 6d 6e 6d 0d 20 20 |nwk) int|o mnm.  |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 65 |        |      se|
|000002b0| 74 20 66 6c 67 20 3d 20 | 30 0d 20 20 20 20 20 20 |t flg = |0.      |
|000002c0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 6e |        |   set n|
|000002e0| 77 6b 20 3d 20 6e 77 6b | 20 2b 20 31 0d 20 20 20 |wk = nwk| + 1.   |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 66 20 |        |     if |
|00000300| 6e 77 6b 20 3c 20 6d 73 | 6d 61 78 20 20 74 68 65 |nwk < ms|max  the|
|00000310| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.      |        |
|00000320| 20 20 20 20 20 20 73 65 | 74 20 62 6d 6e 20 3d 20 |      se|t bmn = |
|00000330| 6e 77 6b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |nwk.    |        |
|00000340| 20 20 20 20 20 20 20 20 | 70 75 74 20 73 74 72 69 |        |put stri|
|00000350| 6e 67 28 6e 77 6b 29 20 | 69 6e 74 6f 20 6d 6e 6d |ng(nwk) |into mnm|
|00000360| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000370| 20 20 20 20 20 73 65 74 | 20 66 6c 67 20 3d 20 30 |     set| flg = 0|
|00000380| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000390| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.|        |
|000003a0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|000003b0| 20 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |   end r|epeat.  |
|000003c0| 20 20 20 20 20 20 73 65 | 74 20 6d 73 6e 61 6d 65 |      se|t msname|
|000003d0| 20 74 6f 20 22 4f 72 61 | 6e 67 65 73 3a 53 6f 75 | to "Ora|nges:Sou|
|000003e0| 6e 64 3a 22 20 26 20 6d | 6e 6d 0d 20 20 20 20 20 |nd:" & m|nm.     |
|000003f0| 20 20 20 69 66 20 6d 63 | 66 6c 67 20 3d 20 31 20 |   if mc|flg = 1 |
|00000400| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |then.   |        |
|00000410| 20 73 6f 75 6e 64 20 70 | 6c 61 79 46 69 6c 65 20 | sound p|layFile |
|00000420| 32 2c 20 6d 73 6e 61 6d | 65 0d 20 20 20 20 20 20 |2, msnam|e.      |
|00000430| 20 20 20 20 20 20 73 65 | 74 20 6d 63 66 6c 67 20 |      se|t mcflg |
|00000440| 3d 20 32 0d 20 20 20 20 | 20 20 20 20 65 6c 73 65 |= 2.    |    else|
|00000450| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 73 6f 75 |.       |     sou|
|00000460| 6e 64 20 70 6c 61 79 46 | 69 6c 65 20 31 2c 20 6d |nd playF|ile 1, m|
|00000470| 73 6e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |sname.  |        |
|00000480| 20 20 73 65 74 20 6d 63 | 66 6c 67 20 3d 20 31 0d |  set mc|flg = 1.|
|00000490| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|000004a0| 20 20 20 65 6e 64 20 69 | 66 0d 65 6c 73 65 0d 20 |   end i|f.else. |
|000004b0| 20 20 20 73 65 74 20 67 | 6d 6e 20 74 6f 20 73 74 |   set g|mn to st|
|000004c0| 72 69 6e 67 28 72 61 6e | 64 6f 6d 28 67 6d 61 78 |ring(ran|dom(gmax|
|000004d0| 29 29 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |)).    s|et the c|
|000004e0| 61 73 74 4e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astNum o|f sprite|
|000004f0| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|00000500| 20 6f 66 20 63 61 73 74 | 20 67 6d 6e 0d 65 6e 64 | of cast| gmn.end|
|00000510| 20 69 66 67 6c 6f 62 61 | 6c 20 67 6d 6e 2c 20 66 | ifgloba|l gmn, f|
|00000520| 6d 6e 2c 20 62 6d 6e 2c | 20 6d 63 66 6c 67 2c 20 |mn, bmn,| mcflg, |
|00000530| 53 6f 75 6e 64 46 6c 61 | 67 2c 20 6d 73 6d 61 78 |SoundFla|g, msmax|
|00000540| 0d 69 66 20 28 28 73 6f | 75 6e 64 42 75 73 79 28 |.if ((so|undBusy(|
|00000550| 6d 63 66 6c 67 29 20 3d | 20 30 29 20 61 6e 64 20 |mcflg) =| 0) and |
|00000560| 28 53 6f 75 6e 64 46 6c | 61 67 20 3d 31 20 29 29 |(SoundFl|ag =1 ))|
|00000570| 20 74 68 65 6e 0d 20 20 | 20 20 72 64 66 6c 6f 77 | then.  |  rdflow|
|00000580| 65 72 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |er.    s|et the c|
|00000590| 61 73 74 4e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astNum o|f sprite|
|000005a0| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|000005b0| 20 6f 66 20 63 61 73 74 | 20 66 6d 6e 0d 20 20 20 | of cast| fmn.   |
|000005c0| 20 69 66 20 53 6f 75 6e | 64 46 6c 61 67 20 3d 20 | if Soun|dFlag = |
|000005d0| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 73 |1 then. |       s|
|000005e0| 65 74 20 66 6c 67 20 3d | 20 31 0d 20 20 20 20 20 |et flg =| 1.     |
|000005f0| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |   repea|t while |
|00000600| 66 6c 67 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |flg.    |        |
|00000610| 73 65 74 20 6e 77 6b 20 | 3d 20 72 61 6e 64 6f 6d |set nwk |= random|
|00000620| 28 6d 73 6d 61 78 29 0d | 20 20 20 20 20 20 20 20 |(msmax).|        |
|00000630| 20 20 20 20 69 66 20 62 | 6d 6e 20 3c 3e 20 6e 77 |    if b|mn <> nw|
|00000640| 6b 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 20 |k then. |        |
|00000650| 20 20 20 20 20 20 20 73 | 65 74 20 62 6d 6e 20 3d |       s|et bmn =|
|00000660| 20 6e 77 6b 0d 20 20 20 | 20 20 20 20 20 20 20 20 | nwk.   |        |
|00000670| 20 20 20 20 20 70 75 74 | 20 73 74 72 69 6e 67 28 |     put| string(|
|00000680| 6e 77 6b 29 20 69 6e 74 | 6f 20 6d 6e 6d 0d 20 20 |nwk) int|o mnm.  |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 65 |        |      se|
|000006a0| 74 20 66 6c 67 20 3d 20 | 30 0d 20 20 20 20 20 20 |t flg = |0.      |
|000006b0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 6e |        |   set n|
|000006d0| 77 6b 20 3d 20 6e 77 6b | 20 2b 20 31 0d 20 20 20 |wk = nwk| + 1.   |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 66 20 |        |     if |
|000006f0| 6e 77 6b 20 3c 20 6d 73 | 6d 61 78 20 20 74 68 65 |nwk < ms|max  the|
|00000700| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n.      |        |
|00000710| 20 20 20 20 20 20 73 65 | 74 20 62 6d 6e 20 3d 20 |      se|t bmn = |
|00000720| 6e 77 6b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |nwk.    |        |
|00000730| 20 20 20 20 20 20 20 20 | 70 75 74 20 73 74 72 69 |        |put stri|
|00000740| 6e 67 28 6e 77 6b 29 20 | 69 6e 74 6f 20 6d 6e 6d |ng(nwk) |into mnm|
|00000750| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000760| 20 20 20 20 20 73 65 74 | 20 66 6c 67 20 3d 20 30 |     set| flg = 0|
|00000770| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000780| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.|        |
|00000790| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|000007a0| 20 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |   end r|epeat.  |
|000007b0| 20 20 20 20 20 20 73 65 | 74 20 6d 73 6e 61 6d 65 |      se|t msname|
|000007c0| 20 74 6f 20 22 4f 72 61 | 6e 67 65 73 3a 53 6f 75 | to "Ora|nges:Sou|
|000007d0| 6e 64 3a 22 20 26 20 6d | 6e 6d 0d 20 20 20 20 20 |nd:" & m|nm.     |
|000007e0| 20 20 20 69 66 20 6d 63 | 66 6c 67 20 3d 20 31 20 |   if mc|flg = 1 |
|000007f0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |then.   |        |
|00000800| 20 73 6f 75 6e 64 20 70 | 6c 61 79 46 69 6c 65 20 | sound p|layFile |
|00000810| 32 2c 20 6d 73 6e 61 6d | 65 0d 20 20 20 20 20 20 |2, msnam|e.      |
|00000820| 20 20 20 20 20 20 73 65 | 74 20 6d 63 66 6c 67 20 |      se|t mcflg |
|00000830| 3d 20 32 0d 20 20 20 20 | 20 20 20 20 65 6c 73 65 |= 2.    |    else|
|00000840| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 73 6f 75 |.       |     sou|
|00000850| 6e 64 20 70 6c 61 79 46 | 69 6c 65 20 31 2c 20 6d |nd playF|ile 1, m|
|00000860| 73 6e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 20 20 |sname.  |        |
|00000870| 20 20 73 65 74 20 6d 63 | 66 6c 67 20 3d 20 31 0d |  set mc|flg = 1.|
|00000880| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|00000890| 20 20 20 65 6e 64 20 69 | 66 0d 65 6c 73 65 0d 20 |   end i|f.else. |
|000008a0| 20 20 20 72 64 66 68 6f | 74 6f 0d 20 20 20 20 73 |   rdfho|to.    s|
|000008b0| 65 74 20 74 68 65 20 63 | 61 73 74 4e 75 6d 20 6f |et the c|astNum o|
|000008c0| 66 20 73 70 72 69 74 65 | 20 31 20 74 6f 20 74 68 |f sprite| 1 to th|
|000008d0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|000008e0| 20 67 6d 6e 0d 65 6e 64 | 20 69 66                | gmn.end| if     |
+--------+-------------------------+-------------------------+--------+--------+